SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00021_Mid Intro Frame Script.ls

Text File | 1995-10-13 | 262 b | 17 lines

on exitFrame
  aLoadSeries("BGirl", 1)
  startTimer()
  repeat while the timer < 120
  end repeat
end

on keyDown
  if the key = RETURN then
    if the machineType = 256 then
      go(label("little") + 1)
    else
      go("Main Screen")
    end if
  end if
end